home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / texsrc.arc / TEX6.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  60KB  |  2,134 lines
  1. overlay "tex6"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. alignpeek () { /* 20 */ r_alignpeek 
  6.   lab20: alignstate = 1000000 ; 
  7.   do { getxtoken () ; 
  8.   } while ( ! ( curcmd != 10 ) ) ; 
  9.   if ( curcmd == 34 ) 
  10.   {
  11.     scanleftbrac () ; 
  12.     newsavelevel ( 7 ) ; 
  13.     if ( curlist .modefield == - 1 ) 
  14.     normalparagr () ; 
  15.   } 
  16.   else if ( curcmd == 2 ) 
  17.   finalign () ; 
  18.   else if ( ( curcmd == 5 ) && ( curchr == 130 ) ) 
  19.   goto lab20 ; 
  20.   else { 
  21.     initrow () ; 
  22.     initcol () ; 
  23.   } 
  24. } 
  25. halfword zfiniteshrink ( p ) 
  26. halfword p ; 
  27. {register halfword Result; r_finiteshrink 
  28.   halfword q ; 
  29.   if ( noshrinkerro ) 
  30.   {
  31.     noshrinkerro = false ; 
  32.     {
  33.       if ( interaction == 3 ) 
  34.       wakeuptermin () ; 
  35.       printnl ( 133 ) ; 
  36.       print ( 771 ) ; 
  37.     } 
  38.     {
  39.       helpptr = 5 ; 
  40.       helpline [ 4 ] = 772 ; 
  41.       helpline [ 3 ] = 773 ; 
  42.       helpline [ 2 ] = 774 ; 
  43.       helpline [ 1 ] = 775 ; 
  44.       helpline [ 0 ] = 776 ; 
  45.     } 
  46.     error () ; 
  47.   } 
  48.   q = newspec ( p ) ; 
  49.   mem [(long) q ] .hh.b1 = 0 ; 
  50.   deletegluere ( p ) ; 
  51.   Result = q ; 
  52.   return(Result) ; 
  53. } 
  54. ztrybreak ( pi , breaktype ) 
  55. integer pi ; 
  56. smallnumber breaktype ; 
  57. {/* 10 30 31 22 60 */ r_trybreak 
  58.   halfword r ; 
  59.   halfword prevr ; 
  60.   halfword oldl ; 
  61.   boolean nobreakyet ; 
  62.   halfword prevprevr ; 
  63.   halfword s ; 
  64.   halfword q ; 
  65.   halfword v ; 
  66.   integer t ; 
  67.   internalfont f ; 
  68.   halfword l ; 
  69.   boolean noderstaysac ; 
  70.   scaled linewidth ; 
  71.   quarterword fitclass ; 
  72.   halfword b ; 
  73.   integer d ; 
  74.   boolean artificialba ; 
  75.   halfword savelink ; 
  76.   scaled shortfall ; 
  77.   fourquarters qi;
  78.   if ( abs ( pi ) >= 10000 ) 
  79.   if ( pi > 0 ) 
  80.   goto lab10 ; 
  81.   else pi = - 10000 ; 
  82.   nobreakyet = true ; 
  83.   prevr = memtop - 7 ; 
  84.   oldl = 0 ; 
  85.   curactivewid [ 1 ] = activewidth [ 1 ] ; 
  86.   curactivewid [ 2 ] = activewidth [ 2 ] ; 
  87.   curactivewid [ 3 ] = activewidth [ 3 ] ; 
  88.   curactivewid [ 4 ] = activewidth [ 4 ] ; 
  89.   curactivewid [ 5 ] = activewidth [ 5 ] ; 
  90.   curactivewid [ 6 ] = activewidth [ 6 ] ; 
  91.   while ( true ) { 
  92.     lab22: r = mem [(long) prevr ] .hh .v.RH ; 
  93.     if ( mem [(long) r ] .hh.b0 == 2 ) 
  94.     {
  95.       curactivewid [ 1 ] = curactivewid [ 1 ] + mem [(long) r + 1 ] .cint ; 
  96.       curactivewid [ 2 ] = curactivewid [ 2 ] + mem [(long) r + 2 ] .cint ; 
  97.       curactivewid [ 3 ] = curactivewid [ 3 ] + mem [(long) r + 3 ] .cint ; 
  98.       curactivewid [ 4 ] = curactivewid [ 4 ] + mem [(long) r + 4 ] .cint ; 
  99.       curactivewid [ 5 ] = curactivewid [ 5 ] + mem [(long) r + 5 ] .cint ; 
  100.       curactivewid [ 6 ] = curactivewid [ 6 ] + mem [(long) r + 6 ] .cint ; 
  101.       prevprevr = prevr ; 
  102.       prevr = r ; 
  103.       goto lab22 ; 
  104.     } 
  105.     {
  106.       l = mem [(long) r + 1 ] .hh .v.LH ; 
  107.       if ( l > oldl ) 
  108.       {
  109.     if ( ( minimumdemer < 1073741823 ) && ( ( oldl != easyline ) || ( r == 
  110.     memtop - 7 ) ) ) 
  111.     {
  112.       if ( nobreakyet ) 
  113.       {
  114.         nobreakyet = false ; 
  115.         breakwidth [ 1 ] = background [ 1 ] ; 
  116.         breakwidth [ 2 ] = background [ 2 ] ; 
  117.         breakwidth [ 3 ] = background [ 3 ] ; 
  118.         breakwidth [ 4 ] = background [ 4 ] ; 
  119.         breakwidth [ 5 ] = background [ 5 ] ; 
  120.         breakwidth [ 6 ] = background [ 6 ] ; 
  121.         s = curp ; 
  122.         if ( breaktype > 0 ) 
  123.         if ( curp != 0 ) 
  124.         {
  125.           t = mem [(long) curp ] .hh.b1 ; 
  126.           v = curp ; 
  127.           s = mem [(long) curp + 1 ] .hh .v.RH ; 
  128.           while ( t > 0 ) { 
  129.         decr ( t ) ; 
  130.         v = mem [(long) v ] .hh .v.RH ; 
  131.         if ( ( v >= himemmin ) ) 
  132.         {
  133.           f = mem [(long) v ] .hh.b0 ; 
  134. /*          breakwidth [ 1 ] = breakwidth [ 1 ] - fontinfo [ widthbase [ 
  135.           f ] + fontinfo [ charbase [ f ] + mem [(long) v ] .hh.b1 ] .qqqq 
  136.           .b0 ] .cint ; 
  137. */
  138.     qi = fontinfo [ charbase [ f ] + mem [(long) v ] .hh.b1 ] .qqqq;
  139.     breakwidth [ 1 ] = breakwidth [ 1 ] - fontinfo [ widthbase [  f ]
  140.                +  qi .b0 ] .cint ; 
  141.         } 
  142.         else switch ( mem [(long) v ] .hh.b0 ) 
  143.         {case 6 : 
  144.           {
  145.             f = mem [(long) v + 1 ] .hh.b0 ; 
  146. /*            breakwidth [ 1 ] = breakwidth [ 1 ] - fontinfo [ widthbase 
  147.             [ f ] + fontinfo [ charbase [ f ] + mem [(long) v + 1 ] .hh.b1 ] 
  148.             .qqqq .b0 ] .cint ; 
  149. */
  150.    qi = fontinfo [ charbase [ f ] + mem [(long) v + 1 ] .hh.b1 ].qqqq;
  151.             breakwidth [ 1 ] = breakwidth [ 1 ] - fontinfo [ widthbase 
  152.             [ f ] +qi.b0 ] .cint ; 
  153.           } 
  154.           break ; 
  155.         case 0 : 
  156.         case 1 : 
  157.         case 2 : 
  158.         case 11 : 
  159.           breakwidth [ 1 ] = breakwidth [ 1 ] - mem [(long) v + 1 ] .cint ; 
  160.           break ; 
  161.         default : 
  162.           confusion ( 777 ) ; 
  163.           break ; 
  164.         } 
  165.           } 
  166.           while ( s != 0 ) { 
  167.         if ( ( s >= himemmin ) ) 
  168.         {
  169.           f = mem [(long) s ] .hh.b0 ; 
  170. /*          breakwidth [ 1 ] = breakwidth [ 1 ] + fontinfo [ widthbase [ 
  171.           f ] + fontinfo [ charbase [ f ] + mem [(long) s ] .hh.b1 ] .qqqq 
  172.           .b0 ] .cint ; 
  173. */
  174.     qi = fontinfo [ charbase [ f ] + mem [(long) s ] .hh.b1 ] .qqqq;
  175.     breakwidth [ 1 ] = breakwidth [ 1 ] + fontinfo [ widthbase [  f ]
  176.                +  qi .b0 ] .cint ; 
  177.         } 
  178.         else switch ( mem [(long) s ] .hh.b0 ) 
  179.         {case 6 : 
  180.           {
  181.             f = mem [(long) s + 1 ] .hh.b0 ; 
  182. /*            breakwidth [ 1 ] = breakwidth [ 1 ] + fontinfo [ widthbase 
  183.             [ f ] + fontinfo [ charbase [ f ] + mem [(long) s + 1 ] .hh.b1 ] 
  184.             .qqqq .b0 ] .cint ; 
  185. */
  186.    qi = fontinfo [ charbase [ f ] + mem [(long) s + 1 ] .hh.b1 ].qqqq;
  187.             breakwidth [ 1 ] = breakwidth [ 1 ] + fontinfo [ widthbase 
  188.             [ f ] +qi.b0 ] .cint ; 
  189.           } 
  190.           break ; 
  191.         case 0 : 
  192.         case 1 : 
  193.         case 2 : 
  194.           breakwidth [ 1 ] = breakwidth [ 1 ] + mem [(long) s + 1 ] .cint ; 
  195.           break ; 
  196.         case 11 : 
  197.           if ( ( t == 0 ) && ( mem [(long) s ] .hh.b1 != 2 ) ) 
  198.           t = - 1 ; 
  199.           else breakwidth [ 1 ] = breakwidth [ 1 ] + mem [(long) s + 1 ] 
  200.           .cint ; 
  201.           break ; 
  202.         default : 
  203.           confusion ( 778 ) ; 
  204.           break ; 
  205.         } 
  206.         incr ( t ) ; 
  207.         s = mem [(long) s ] .hh .v.RH ; 
  208.           } 
  209.           breakwidth [ 1 ] = breakwidth [ 1 ] + discwidth ; 
  210.           if ( t == 0 ) 
  211.           s = mem [(long) v ] .hh .v.RH ; 
  212.         } 
  213.         while ( s != 0 ) { 
  214.           if ( ( s >= himemmin ) ) 
  215.           goto lab30 ; 
  216.           switch ( mem [(long) s ] .hh.b0 ) 
  217.           {case 10 : 
  218.         {
  219.           v = mem [(long) s + 1 ] .hh .v.LH ; 
  220.           breakwidth [ 1 ] = breakwidth [ 1 ] - mem [(long) v + 1 ] .cint ; 
  221.           breakwidth [ 2 + mem [(long) v ] .hh.b0 ] = breakwidth [ 2 + mem [(long) 
  222.           v ] .hh.b0 ] - mem [(long) v + 2 ] .cint ; 
  223.           breakwidth [ 6 ] = breakwidth [ 6 ] - mem [(long) v + 3 ] .cint ; 
  224.         } 
  225.         break ; 
  226.           case 12 : 
  227.         ; 
  228.         break ; 
  229.           case 9 : 
  230.           case 11 : 
  231.         if ( mem [(long) s ] .hh.b1 == 2 ) 
  232.         goto lab30 ; 
  233.         else breakwidth [ 1 ] = breakwidth [ 1 ] - mem [(long) s + 1 ] .cint 
  234.         ; 
  235.         break ; 
  236.           default : 
  237.         goto lab30 ; 
  238.         break ; 
  239.           } 
  240.           s = mem [(long) s ] .hh .v.RH ; 
  241.         } 
  242.         lab30: ; 
  243.       } 
  244.       if ( mem [(long) prevr ] .hh.b0 == 2 ) 
  245.       {
  246.         mem [(long) prevr + 1 ] .cint = mem [(long) prevr + 1 ] .cint - curactivewid [ 
  247.         1 ] + breakwidth [ 1 ] ; 
  248.         mem [(long) prevr + 2 ] .cint = mem [(long) prevr + 2 ] .cint - curactivewid [ 
  249.         2 ] + breakwidth [ 2 ] ; 
  250.         mem [(long) prevr + 3 ] .cint = mem [(long) prevr + 3 ] .cint - curactivewid [ 
  251.         3 ] + breakwidth [ 3 ] ; 
  252.         mem [(long) prevr + 4 ] .cint = mem [(long) prevr + 4 ] .cint - curactivewid [ 
  253.         4 ] + breakwidth [ 4 ] ; 
  254.         mem [(long) prevr + 5 ] .cint = mem [(long) prevr + 5 ] .cint - curactivewid [ 
  255.         5 ] + breakwidth [ 5 ] ; 
  256.         mem [(long) prevr + 6 ] .cint = mem [(long) prevr + 6 ] .cint - curactivewid [ 
  257.         6 ] + breakwidth [ 6 ] ; 
  258.       } 
  259.       else if ( prevr == memtop - 7 ) 
  260.       {
  261.         activewidth [ 1 ] = breakwidth [ 1 ] ; 
  262.         activewidth [ 2 ] = breakwidth [ 2 ] ; 
  263.         activewidth [ 3 ] = breakwidth [ 3 ] ; 
  264.         activewidth [ 4 ] = breakwidth [ 4 ] ; 
  265.         activewidth [ 5 ] = breakwidth [ 5 ] ; 
  266.         activewidth [ 6 ] = breakwidth [ 6 ] ; 
  267.       } 
  268.       else { 
  269.         q = getnode ( 7 ) ; 
  270.         mem [(long) q ] .hh .v.RH = r ; 
  271.         mem [(long) q ] .hh.b0 = 2 ; 
  272.         mem [(long) q ] .hh.b1 = 0 ; 
  273.         mem [